﻿Imports DTO
Imports BUS
Public Class frmDanhSanhSanh

    Private Sub frmDanhSanhSanh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        load_dssanh()
    End Sub
    Public Sub load_dssanh()
        Dim db As New DataTable()
        Dim ds As New LOAISANHBUS
        db = ds.load_dssanh()
        luoi.DataSource = db
        luoi.[ReadOnly] = True
        ' luoi.Columns["PASS"].Vile = false;
        Dim i As Integer
        For i = 0 To db.Rows.Count - 1
            luoi.Rows(i).Cells(0).Value = (i + 1)

        Next i
    End Sub
End Class